VerGetFileLanguages Example

InstallShield 2022 » InstallScript Language Reference

/*--------------------------------------------------------------*\

*

* InstallShield Example Script

*

* Demonstrates the VerGetFileLanguages function.

*

\*--------------------------------------------------------------*/

 

function OnBegin()

    number nListGetItem, nvLanguageInfo, nLanguageCode, nCodePage;

    string szFileName;

    LIST listLanguages, listLanguageCodes, listCodePages;

begin

    // Get file language information.

    szFileName = "C:\\Program Files\\Internet Explorer\\Iexplore.exe";

    listLanguages = ListCreate( NUMBERLIST );

    VerGetFileLanguages( szFileName, listLanguages );

 

    // Extract language codes and code page IDs

    // from list items and add to new lists.

    listLanguageCodes = ListCreate( NUMBERLIST );

    listCodePages = ListCreate( NUMBERLIST );

    nListGetItem = ListGetFirstItem( listLanguages ,nvLanguageInfo);

    while nListGetItem=0

        nLanguageCode = LOWORD( nvLanguageInfo );

        ListAddItem( listLanguageCodes, nLanguageCode, AFTER );

        nCodePage = HIWORD( nvLanguageInfo );

        ListAddItem( listCodePages, nCodePage, AFTER );

        nListGetItem = ListGetNextItem( listLanguages ,nvLanguageInfo);

    endwhile;

end;